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8B BB PP AA AA MM mM 00 00 Ww Ww TT UU uu CC ones 
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3; MOVTUC routine 


; Detailed Current Edit History 


16-SEP-1984 00:02:29 VAX/VMS Macro v04-00 
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H 1 
BPASSMOVTUC : MOVTUC routine 16-SE :02:29 VAX/VMS Macro v04-00 Pa 1 | 
1-001 g- SEE] 382 98: oF: 3 BASRTL.SRCJBPAMOVTUC.MAR; 1 - (1) 
«TITLE BPASSMOVTUC vie routine | 
-IDENT /1-001/ File: BPAMOVTUC.MAR 


MARBAAARAAAAAAAALAALSA SALES ALES ESSA EEE SESE E ERTS R REESE RR EEE EERE ET EERSTE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® * 
sd ® 
*® * 
® ® 
sd ® 
‘ OFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
* N yAGCORDANCE WITH THE TERMS OF SUCH. LICENSE AND WITH THE 
. JON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
tf OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE TS. HEREBY © 
:@ TRANSFERRED. ‘ 
** ft 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
* om 
** ® 
*® ® 
:® ® 
*® ® 
bad * 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH | 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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S NOT SUPPLIED BY DIGITAL. 
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fACILITY: VAX-11 BASIC Miscellaneous 
“ABSTRACT: 


This module contains a MOVTUC instruction, and enough parameters 
to allow it to be mer effectively from BLISS. 


VERSION: 1 
HISTORY: 


AUTHOR: 
John Sauter, 03-DEC-1979 


MODIFIED BY: 
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— BPASSMOVTUC : VTUC routin 16-SEP-1984 :02: AX/VMS Macro V04-00 P 
Le 1 fur S7ORY ; Detailed Current Edit History $23 eats vi 90:05:93 EBASRTL. SRCIGPAMOVTUC MAR: 1 ees by 
$i 9 -SBTTL HISTORY ; Detailed Current Edit History 
0 
444 2§ ; Edit History for Version 1 of BPASSMOVTUC 
0000 5 } 1-001 = Original. JBS 03-DEC-1979 
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; MOVTUC routine 
BECLARATIONS 


-001 


grasenov Tuc 


PIC, SHR, LONG, EXE, NOWRT 


nw 
z 
oO 
cond w 
ld a 
< oO 
[+ 4 vw 
<= “A 
il 4 
vw I 2a. 
w ” @ om ee 
a a o —_ | n 
- oO om J 
yv @ << co 
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— ou > @ <=) = w 
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n” So 2 8e So wa o <= oO 
° wetiegeaeteevr &2 @&e a 2 oz 
a 2 nn w oo 
P| = oO ra wn” 
ad w « vw 4 
wv — Vv w > r4 
2 =< <= ” oe =z 
_ w = a. w oO 
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1-001 
10 BC 3=60C BC 


K 1 
: MOVTUC routine 16-SEP-1984 :02:29 VAX/VMS Ma 
BPASSMOVTUC pant set yy 90:08:48 


-SBTTL BPASSMOVTUC 


cro V04-00 Page 4 
BASRTL.SRC JBPAMOVTUC MAR; 1 (4) 


pee 
; FUNCTIONAL DESCRIPTION: 


: ' : 
00 9) 3 Allows a BLISS program access to all of the fa ties of 
000 3 : the MOVTUC instruc ion. = 
00¢ 34 ; CALLING SEQUENCE: (assuming the translate is of ASCII text) 
$008 38 : CALL BPASSMOVTUC (SRCLEN.rw.r, SRCADDR.rt.r, ESC_CHR.rt.r, TBLADR.wt.r DSTL. 
9909 97 ; DSTADDR.wt.r, ESC_FLAG.wi.r, SRC_LEFT.ww-r, SRC_NEXT.wa.r, DEST_LEFT 
9009 133 > INPUT PARAMETERS: | 
00000004 0900 101 ° SRCLEN = 4; Length of the source strin 
00000008 0000 19 SRCADOR = 8 Base of the source string . 
0000000¢ 909 10 SC_CHR = 12; The escape character 
00000010 0000 104 TBLADR = 16; Translation table 
00000014 0000 105 DSTLEN = 20; Length of the destination string 
00000018 444 196 ; DSTADDR = 24; Base of the destination string 
0000 108 : IMPLICIT INPUTS: 
0000 109 ; 
0000 110; NONE 
0000 111; 
464 11 ; OUTPUT PARAMETERS: | 
0000001¢ 0000 114° ESC_FLAG = $8: 1 if the translation was terminated by escape, 0 if not. 
00000020 0000 115 SRC_LEFT = 32; O if the string was translated without escape, otherwise the | 
0000 116; number of untranslated bytes in the source string, including) 
0000 117; byte which caused the escape | 
00000024 0000 118 SRC_NEXT = 36; Address of the byte in the source string which caused the es) 
0000 119; or destination string exhaustion, or, if no exhaustion or es | 
0000 139 3 the address one byte beyond the source string 
00000028 0000 121 DEST_LEFT = 40; Number of bytes rene ining in the destination string | 
0000002C 0000 1 § DEST_NEXT = 44; Address of the byte in the destination string which would ha) 
0000 123; received the translated byte that caused the escape, or woul | 
0000 124 ; have received a translated byte if the source string were no | 
i$ 125 ; exhausted; or, if no exhaustion or escape, the address of on | 
i464 : § : byte beyond the destination string. 
0000 8 : IMPLICIT OUTPUTS: 
0000 180 ; NONE 
0000 131; 
000 1 ¢ 3 FUNCTION VALUE: 
000 133; 
000 134; NONE 
9000 i 3 : SIDE EFFECTS: 
299 i ; NONE 
139 ; 
003¢ 124 , -ENTRY BPASSMOVTUC, “M <R2, R3, R4, RS> 3; Save registers through RS 
08 BC 04 BC 2F 0002 142 MOVTUC @SRCLEN(AP), @SRCADDR(AP), @ESC_CHR(AP), @TBLADR(AP), @DSTLEN(AP), @ 
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; Not terminated by escape 
; Terminated by escape 
; Return to caller 


C_FLAG(AP) 
T 
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The working set Limit ues 750 


pages. 
ura bytes (4 pages) of virtua 


Mm 1 


memory were used to buffer the intermediate code 


Be 10:04:18 


ABS LCL 
REL LCL 


were 10 pages of symbol table space allocated to hold 12 non-local and 2 local symbols. 


re 
133 source Lines were read in Pass 1, 


producin 


8 mac 


0 pages of virtual memory were used to define 


object records in Pass 


BPASSMOVTUC 3; MOVTUC routine y* SEP=1 
Symbol table Spm 19 
BPASSMOVTUC 0 RG 01 
HEIR 5 $3883 
= 
STABOR = 0 § 
,DSTLEN = 14 
C_CHR > d0¢ 
ESC FLAG = 00 i 
| SRCADDR = 88 $00 
CLEN = 00000004 
SRC_LLEFT = 000 Base 
| SRC"NEXT = 00000024 
AC BLADR = 00000010 
j pes ween ence anaewe + 
1 _Psect synopsis ! 
| eS Se ee ee 
oe name Allocation PSECT No. Attributes 
. 00000000 0.) ( 0.) NOPIC USR- CON 
|“ ppascopé - 00000028 ( 43.) . Bel PIC USR CON 
PRR i ti en ni athe: 
! Performance indicators ! 
vaste Page faults CPU Time Elapsed Time 
| Initialization 35 00:00:00.08 00:00:00 .59 
pennane processing 118 00:00:00.49 00:00:03.02 
s 1 68 00:00:00.44 00:00:01.29 
Syabol table sort ? 8) + 89 228 +00 ee ey pet 
s2 4 00:00:00.31 00:00:01.00 
se ES table output 3 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run tota!s 271 00:00:01.36 00:00:05.85 
| 


| necro Library name 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 


poe were no error 


MACRO/ENABLE = SUPPRESS 10N/D1 SABLE =(GLOBAL , TRACEBACK) /L1S=L1S$:BPAMOVTUC/0BJ=0BJ$:BPAMOVTUC MSRC$:BPAMOVTUC/UPDATE=(ENHS :BPAMOVTUC) 


arnings or information messages. 
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BASRT 


Macro v04-00 
SRC JBPAMOVTUC.MAR; 1 
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RD NOWRT NOVEC LONG 
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